Menu Channel {
  Away
  .Go Away:{
    set %reason $?="Reason for away?"
    if (%reason != $null) {
      away %reason
      amsg $cg( I Am Now Away Reason:) %spc $+  $+ %reason  $+ $cg(Pager:) %spc $+  $+ /ctcp $me PAGE <message>  $+ $mirc
      set %xaway $ctime
      .timeraway 0 %atime /amsg $cg( I Am Still Away Reason:) %spc $+  $+ %reason  $+ $cg(Pager:) %spc $+  $+ /ctcp $me PAGE <message>  $+ $mirc
    }
  }
  .Set Back:{
    if (%reason != $null) {
      amsg $cg( I Am Now Back From Reason:) %spc $+  $+ %reason  $+ $cg(I Was Gone For:) $+  $+ %spc $duration($calc($ctime - %xaway))  $+ $mirc
      away
      unset %reason
      .timeraway off
      echo Dont forget to check for pages!

    }
  }
  .Check Pager: /run notepad.exe pager.txt
  .Set Delay:/set %atime $$?"Set How many seconds in between Away ads"
